home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 March / Amiga-CD 1996 #3.iso / demos / databasepro3 / picbase / dtp_pgs3.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-01-19  |  852 b   |  41 lines
  1. /* Bild aus Clipart/PicBase an PageStream3 übergeben */
  2.  
  3. ARG bild
  4.  
  5. OPTIONS RESULTS
  6.  
  7. ADDRESS DataBase Message "Bild wird übergeben ..."
  8.  
  9. pos = LastPos(".",bild)
  10. IF pos > 0 THEN DO
  11.   filter = "FILTER "
  12.   ext = SubStr(bild,pos+1,Length(bild)-pos)
  13.   SELECT
  14.     WHEN ext = "IFF" THEN
  15.       filter = filter || "IFFILBM"
  16.     WHEN ext = "GIF" THEN
  17.       filter = filter || "GIF"
  18.     WHEN ext = "PCX" THEN
  19.       filter = filter || "PCX"
  20.     WHEN ext = "BMP" THEN
  21.       filter = filter || "BMP"
  22.     WHEN ext = "TIF" THEN
  23.       filter = filter || "TIFF"
  24.     WHEN ext = "JPG" THEN
  25.       filter = filter || "JPEG"
  26.     OTHERWISE
  27.       filter = ""
  28.   END
  29.   END
  30. ELSE
  31.   filter = ""
  32.  
  33. ADDRESS 'PAGESTREAM'
  34.  
  35. PlaceGraphic FILE bild filter STATUS
  36. IF RC ~= 0 THEN
  37.   ADDRESS DataBase Message "Bild kann nicht übergeben werden"
  38. ELSE
  39.   ADDRESS DataBase Message "Bild übergeben"
  40.  
  41.